Dim WSHShell, RetVal
On Error Resume next
RetVal = WScript.CreateObject("WScript.Shell").Run ("excel /r D:\\SVN_SSVINA\Code\K1010_1001C.xls" , 1 , true)